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-- NubControl .Mesa 

-- Edited by Sandman on October 6, 1977 4:31 PM 

DIRECTORY 

AUoFileDefs: FROM "al tof iledefs" , 
ControlDefs: FROM "con troldefs" , 
CoreSwapDefs : FROM "coreswapdefs" , 
FrameDefs: FROM "framedefs", 
ImageDefs: FROM "imagedefs" , 
lODefs: FROM "iodefs", 
LoaderDefs: FROM "loaderdef s" . 
SegmentDefs: FROM "segmentdefs", 
StreamDefs: FROM "s treamdef s" , 
StringDefs: FROM "stringdef s" . 
Rectangles: FROM "rectangles", 
Windows: FROM "windows", 
TimeDefs: FROM "timede^s"; 

NubControl: PROGRAM 

IMPORTS CoreSwapDefs, FrameDefs, ImageDefs, lODefs, LoaderDefs, SegmentDefs, StreamDefs, StringDefs. 
**TimeDefs, Rectangles, Windows 

BEGIN 

-- System Signals are converted to these to prevent NubCommand 

-- from catching user generated signals 

Delete: SIGNAL = CODE; -- nee Rubout 

StringTooLong: ERROR = CODE; -- nee LineOverflow 

BadFile: ERROR [badname: STRING] = CODE; ' -- nee F i 1 eNameError 

BadNumber: ERROR = CODE; -- nee Inval idNumber 

Program: TYPE = PROGRAM; 

CallDebugger: PROCEDURE = 

BEGIN -- user's entry point to debugger 
state: ControlDefs .StateVector; 

state. stkptr ^ 0; 

state. X ♦• defaultf rame; 

CoreSwapDefs .CoreSwap[expl icitcall, Qstate]; 

RETURN 

END; 

CommandChar: TYPE = {N,S,M,D,Q}; 

CommandString: ARRAY CommandChar OF STRING = 
["New", "Start", "Makelmage", "Debug", "Quit"]; 

Command: PROCEDURE = 
BEGIN OPEN lODefs; 
c: CHARACTER; 
i: CommandChar; 

f: ControlDefs . Gl obal Frameflandle ; 
IF comcmRequest.f ile n NIL THEN NubHack[]: 
SELECT c-ReadChar[] FROM 
•N. 'n => 
BEGIN 

Wr i teStr i ng [ Commands tring[N]] ; 
r ♦- LoadNew[getf J lename[" .bed"]] ; 

IF f n ControlDefs. NULLFrame THEN defaultframe *- f; 
END; 
'S. 's => 
BEGIN 

Wr i teStr i ng[ Commands tri ng[S]] ; 
f ♦- getgrrame[] ; 
Wr iterOL[]; 

If F.pc = ControlDefs. WordPC[0] THEN START LOOPMOLr[r. Program] TLSr RESTART f; 
END; 
•D. 'd => 
BEGIN 

Wr j teStr ing[CommandS tr ing[D]] ; 
conf i rm[] ; 
Gal inebugger[] ; 
END; 
'Q. 'q -> 



nubc0^rfROL.mESA 24-0CT-77 13:38:25 Pago 2 



BEGIN 

WriteString[CommandString[Q]] ; 
conf irm[]; 

ImageDefs.StopMesa[]; 
END; 

'M.'m =:> 
BEGIN 

Wri teString[CommandString[M]] ; 

ImageDef s. Make Image[ getfi Ten ame[". image"], FALSE]; 
END; 

CR.SP => NULL; 

ENOCASE => 
BEGIN 

WriteChar[c]; 

WriteString[" Commands are:"]; 
FOR i IN CommandChar DO 

WriteChar[' ]; WriteStr ing[CommandString[i ]] ; ENOLOOP; 
END; 
RETURN 
END; 

LoadNew: PROCEDURE [name: STRING] RETURNS [g: ControlDefs .Global FrameHandle] = 
BEGIN 
g ♦- FrameOef s .New[name ! BadFile, LoaderDef s .Vers ionMismatch , UNWIND => NULL; 

ANY => ERROR BadF il e[name]] ; 
lODefs.WriteStringC" -- "]; 
IOOefs.WriteOctal[g]; 
RETURN 
END; 

defaultframe: ControlDefs .Global FrameHandle ♦• REGISTER[ControlDef s .Greg] ; 

getgframe: PROCEDURE RETURNS [f: ControlDefs . Global FrameHandle] = 
BEGIN OPEN lODefs; 
WriteString[" Global frame: "]; 
f <- ReadNumber[def aul tf rame , 8 

I LineOverflow => ERROR S tr ingTooLong; 
Rubout => SIGNAL Delete; 

StringDefs. Inval idNumber «> ERROR BadNumber]; 
IF (f .accessl ink ff f) OR (FrameOef s .Class[ f] U global) THEN 

BEGIN WriteString[" not a global frame!"]; SIGNAL CoreSwapDefs . CAbort END; 
defaultframe ♦- f; 
RETURN 
END; 

idstring: STRING *- [40]; 

getfilename: PROCEDURE [def aul textens ion : STRING] RETURNS [STRING] = 
BEGIN OPEN lODefs; 
Wri teStr ing[" Filename: "]; 
ReadID[ids tring 

! Rubout => SIGNAL Delete; 
LineOverflow => ERROR StringTooLong] ; 
defaultext[idstring, defaul textens ion] ; 
RFTURN[ idstring] 
END; 

defaultext: PROCEDURE [idstring, ext: STRING] = 
BTGIN 

i: CARDINAL; 

FOR i IN [0. . idstring. length) DO 
IF idstring[ i] = ' . THEN EXIT; 
RfPFAT riNISHFD => 

Str ingDers.AppendStr ing[ idstring, ext 

! Str ingDefs .Str i ngBoundsFaul t => fRROR StringTooLong]; 
fNDlOOP; 
END; 

confirm: PROCEDURE = 
BEGIN OPEN lODefs; 
Wr I teStr ing[" [confirm] " ] ; 
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DO 

SELECT ReadChar[] FROM 
CR => EXIT* 
DEL => SIGNAL Delete; 
ENDCASE => WriteChari'?]; 
ENDLOOP; 
WriteChar[CR]: 
RETURN 
END; 

WriteEOL: PROCEDURE = 
BEGIN OPEN TODefs; 
IF ~NewLine[] THEN Wri teChar[CR] ; 
RETURN 
END; 

comcmRequest : short ImageDef s . FileRequest *■ [ 
body: shorL[fm:, name: "Com.Cm. "] , 
file: NIL. 

access: SegmentDefs .Read, 
link: ]; 

NubHack: PROCEDURE = 

BEGIN OPEN lODefs, StreamDefs; 

f: Control Defs . Global FrameHandle; 

com: StreamHandle; 

name: STRING ♦- [40]; 

fa: AltoFileDefs. FA; 

GetToken: PROCEDURE [token: STRING] = 

BEGIN 

c: CHARACTER; 

token . length *- 0; 

WHILE ~com.endof[com] DO 

SELECT (c ^ com.get[com]) FROM 

SP, CR => IF token. length ^ THEN RETURN; 
ENDCASE => StringDefs.AppendChar[token, cj; 
ENDLOOP; 

RETURN 

END; 
Cleanup: PROCEDURE = 

BEGIN 

IF comcmRequest. file ^ NIL THEN 
BEGIN 

SegmentDefs .UnlockF i le[comcmRequest . file]; 
comcmRequest . fi le *- NIL 
END; 

END; 
SegmentDefs. LockF i le[comcmReques t . f ile] ; 
com *- CreateBy teS tream[comcmRequest . f i le . Read]; 
Ge tToken[name] ; -- Skip Image Name 
GetToken[name] ; 
WHILE name. length # DO 

ENABLE UNWIND => Cleanup[l ANY => NULL]; 

Wr i teStr ing[name] ; 

def aul tex t[name , ".bed"]; 

StreamDefs. GetFA[com, @fa]; 

com. des troy[com] ; com ♦- NIL; 

f ♦- I oadNew[name] ; 

Wr iteEOL[]; 

If f ^ ControlDefs.NULLFrame THEN START LOOPHOLE[ ( def aul tf rame <- f), Program]; 

Wri teChar['>]; 

If comcmRoquest.f ile = NIL THEN RFTURN; 

com ♦- CreateBy teS tream[comcmReques t . f i le , Read]; 

StreamDefs . JumpToFA[com, @fa ! StreamDefs . StreamFrror , Segmen tOef s . Tnval i dFP => FXIT]; 

Get Token [name] ; 

END! OOP; 
com. des troy[com] ; 
CI eanup[] ; 
TND; 

time: STRING ♦- [18]; 

-- Ma in body 

[] ♦- StreamDefs .GetDef aul tKey[] : -- Start keyboard process 
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ImageDef s .AddFneRequest[@comcmRequest]; 

START Rectangles[40, 30]; 

START Windows["Mesa.Typ8Script."]; 

STOP; 

RESTART Rectangles; 

RESTART Windows; 

START IODers.StreamIO[NIL, NIL]; 

[] ♦■ LoaderDefs.LoadBcd[NIL t ANY => CONTINUE]; 

TimeDefs.AppendDayTime[time, TimeDefs .UnpackDT[ ImageDef s . Image\/ersion[] . time]] ; 

time. length ♦- time. length - 3; 

IODers.WriteString["Alto/Mesa 3.0 "]; lODef s.WriteString[ time] ; 

DO OPEN lODefs; -- forever 
WriteEOL[]: WriteChar[ •>] ; 
Command[ 

! Delete => BEGIN WriteString[" XXX"]; CONTINUE END; 
CoreSwapOefs.CAbort => CONTINUE; 
BadFile => 

BEGIN 

WriteEOL[]; 

Wri teString['MFi1e: "]; 

Wri teString[badname]; 

CONTINUE 

END; 
BadNumber => 

BEGIN WriteEOL[]; Wr i teString[" ! Number"] ; CONTINUE END; 
StringTooLong => 

BEGIN WriteCOL[]; Wr iteString[" ! String too long"]; CONTINUE END; 
CoreSwapDefs .CantSwap => 

BEGIN 

WriteEOL[]; 

WriteString["Externa1 Debugger not installed, type DEL to Abort "]; 

UNTIL ReadChar[]=DEL DO Wri teChar[ • ?] ENDLOOP; 

Wri teString[". . .Aborted ..,"] ; 

CONTINUE 

END; 
LoaderDef s .VersionMismatch --[name: STRING] --=> 

BEGIN 

WriteEOL[]; 

Wri teString["IFile: "]; 

Wri teStr ing[name] ; 

Wri teString[" referenced in different versions."]; 

RESUME 

END; 
UNWIND =>CONTINUE 

]; 

ENDLOOP; 



END. . . 



